MACD 5/MACD 5.bin/workbench/time/eclock/install eclock.ger

Text File | 1994-05-28 | 6.4 KB | 298 lines

; Install script for EClock 1.0


;*********
; Strings
;*********

(set #bad-kick
(cat "Sie brauchen Kickstart 2.04 oder höher um diese Script zu benutzen!"
))

(set #copy-main "\n\n\n\n\nEClock Hauptprogramm installieren?")
(set #copy-main-help
(cat "\nHier können Sie das Hauptprogramm von EClock installieren."
))

(set #copy-prefs "\n\n\n\n\nEClockPrefs Programm installieren?")
(set #copy-prefs-help
(cat "\nHier können Sie das EClockPrefs Programm installieren."
))

(set #copy-ereq "\n\n\n\n\nERequester Programm installieren?")
(set #copy-ereq-help
(cat "\nHier können Sie das ERequester Programm installieren."
))

(set #copy-cats "\n\n\n\n\nWollen Sie die Catalog Dateien für EClockPrefs installieren?")
(set #copy-cats-help
(cat "\nHier können Sie die Catalog Dateien für EClockPrefs installieren."
))

(set #copy-docs "\n\n\n\n\nWollen Sie die Dokumentation von EClock installieren?")
(set #copy-docs-help
(cat "\nHier können Sie die Dokumentation von EClock installieren."
))

(set #install-msg
(cat "Installationsprogramm für EClock V1.0\n\n"
"Die Uhr, die Sie nie mehr missen möchten, wenn Sie sie einmal zu Gesicht bekommen haben :-)\n\n"
"©1993-94 by Bernd Grunwald. All rights reserved.\n\n"
"Bitte lesen Sie zuerst die Anleitung!\n\n"
"Diese Programm ist Shareware.\n"
"Wenn Sie es länger als 1 Woche benutzen, dann müssen Sie sich registrieren lassen.\n"
"Genauere Informationen finden Sie in der Dokumentation.\n"
))


;*******************************************
; make sure Kick 2.0 or higher is available
;*******************************************

(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))


(message #install-msg)

(welcome)

;*********************
; Install Main Program
;*********************


(set oldlevel @user-level)
(if (= oldlevel 0)
    (user 1)
)

(set eclockmain-dir
    (askdir
        (prompt "Bitte wählen Sie das Verzeichnis, in das sie das EClock Hauptprogramm installieren möchen:\n"
        )
        (help @askdir-help)
        (default ("SYS:WBStartup"))
        (newpath)
    )
)

(set @default-dest eclockmain-dir)

(user oldlevel)

(if
    (askbool
        (prompt #copy-main)
        (help #copy-main-help)
        (default 1)
    )
    (
        (copyfiles
            (prompt "Installiere EClock Hauptprogramm...")
            (source "EClock")
            (help #copy-main-help)
            (dest @default-dest)
            (infos)
        )
    )
)

;**********************
; Install Prefs Program
;**********************

(set oldlevel @user-level)
(if (= oldlevel 0)
    (user 1)
)

(set eclockprefs-dir
    (askdir
        (prompt "Bitte wählen Sie das Verzeichnis, in das sie EClockPrefs installieren möchen:\n"
        )
        (help @askdir-help)
        (default ("SYS:Prefs"))
        (newpath)
    )
)

(set @default-dest eclockprefs-dir)

(user oldlevel)

(if
    (askbool
        (prompt #copy-prefs)
        (help #copy-prefs-help)
        (default 1)
    )
    (
        (copyfiles
            (prompt "Installiere EClockPrefs Programm...")
            (source "EClockPrefs")
            (help #copy-prefs-help)
            (dest @default-dest)
            (infos)
        )
    )
)

;***************************
; Install ERequester Program
;***************************

(set oldlevel @user-level)
(if (= oldlevel 0)
    (user 1)
)

(set ereq-dir
    (askdir
        (prompt "Bitte wählen Sie das Verzeichnis, in das sie ERequester installieren möchen:\n"
        )
        (help @askdir-help)
        (default ("C:"))
        (newpath)
    )
)

(set @default-dest ereq-dir)

(user oldlevel)

(if
    (askbool
        (prompt #copy-ereq)
        (help #copy-ereq-help)
        (default 1)
    )
    (
        (copyfiles
            (prompt "Installiere ERequester Programm...")
            (source "ERequester")
            (help #copy-ereq-help)
            (dest @default-dest)
            (infos)
        )
    )
)


;*****************************
; Install EClockPrefs Catalogs
;*****************************
(if
    (askbool
        (prompt #copy-cats)
        (help #copy-cats-help)
        (default 1)
    )
    (
        (set oldlevel @user-level)
        (if (= oldlevel 0)
            (user 1)
        )

        (set cats-dir
            (askdir
                (prompt "Bitte wählen Sie das Verzeichnis, in das sie das deutsche Catalog File installieren möchen:\n"
                )
                (help @askdir-help)
                (default ("Locale:Catalogs/Deutsch"))
                (newpath)
            )
        )

        (set @default-dest cats-dir)

        (user oldlevel)

        (if
            (askbool
                (prompt #copy-cats)
                (help #copy-cats-help)
                (default 1)
            )
            (
                (copyfiles
                    (prompt "Installiere deutsches Catalog File...")
                    (source "EClPrefs.catalog")
                    (help #copy-cats-help)
                    (dest @default-dest)
                    (infos)
                )
            )
        )

    )
)

;***********************
; Install Documentation
;***********************

(if
    (askbool
        (prompt #copy-docs)
        (help #copy-docs-help)
        (default 1)
    )
    (
        (set oldlevel @user-level)
        (if (= oldlevel 0)
            (user 1)
        )

        (set doc-dir
            (askdir
                (prompt "Bitte wählen Sie das Verzeichnis, in das sie die Dokumentation installieren möchen:\n"
                )
                (help @askdir-help)
                (default ("HELP:"))
                (newpath)
            )
        )

        (set @default-dest doc-dir)

        (user oldlevel)

        (if
            (askbool
                (prompt #copy-docs)
                (help #copy-docs-help)
                (default 1)
            )
            (
                (copyfiles
                    (prompt "Installiere EClock Dokumentation...")
                    (source "EClock Docs/EClock.ger.dvi")
                    (help #copy-cats-help)
                    (dest @default-dest)
                    (infos)
                )
                (copyfiles (source "EClock Docs/EClock.ger.guide")
                           (dest @default-dest)
                )
                (copyfiles (source "EClock Docs/EClock.dok")
                           (dest @default-dest)
                )
            )
        )

    )
)

; Copy the Keyfile

; Copy the Keyfile

(RUN
    (CAT "EClockPrefs")
)

(set @default-dest eclockmain-dir)